home *** CD-ROM | disk | FTP | other *** search
/ Web Publisher's Design Gu…or Windows (2nd Edition) / design.iso / otherfiles / sideshow (shockwave) / 00114.ls < prev    next >
Encoding:
Text File  |  1995-08-28  |  262 b   |  13 lines
  1. on mouseUp
  2.   puppetSound("sweep")
  3.   puppetSprite(5, 1)
  4.   repeat while the locH of sprite 5 < 681
  5.     set temp to the locH of sprite 5
  6.     set the locH of sprite 5 to temp + 5
  7.     updateStage()
  8.   end repeat
  9.   puppetSprite(5, 0)
  10.   updateStage()
  11.   go("Adloop")
  12. end
  13.